Private Property Let ITransporte_pPrecio(ByVal p As Double)
    precio = p
End Property

Private Property Get ITransporte_pPrecio() As Double
    ITransporte_pPrecio = precio
End Property

Private Property Let ITransporte_pTipo(ByVal t As String)
    tipo = t
End Property

Private Property Get ITransporte_pTipo() As String
    ITransporte_pTipo = tipo
End Property

Private Function ITransporte_tostring() As Variant
    ITransporte_tostring = "Transporte : " & tipo & " , precio " & precio
End Function

Private Sub IVehiculo_consumir(ByVal c As Double)
    IVehiculo_consumo = IVehiculo_consumo + c
    Debug.Print "  Coche consume " & c & " - Acum " & IVehiculo_consumo
End Sub
